inherited frmCidades: TfrmCidades
  Left = 957
  Top = 504
  Width = 627
  Height = 317
  Caption = 'Cadastro de Cidades'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 234
    Width = 611
  end
  inherited tbrBotoes: TsToolBar
    Width = 611
    inherited spbAlterar: TsSpeedButton
      OnClick = spbAlterarClick
    end
    inherited spbExcluir: TsSpeedButton
      OnClick = spbExcluirClick
    end
  end
  object ntbPaginas: TsNotebook [2]
    Left = 0
    Top = 65
    Width = 611
    Height = 169
    Align = alClient
    PageIndex = 1
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgPrincipal'
      object sPanel1: TsPanel
        Left = 0
        Top = 0
        Width = 611
        Height = 169
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object sLabel1: TsLabel
          Left = 26
          Top = 32
          Width = 87
          Height = 13
          Caption = 'C'#243'digo da Cidade:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel2: TsLabel
          Left = 26
          Top = 64
          Width = 67
          Height = 13
          Caption = 'Nome Cidade:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel3: TsLabel
          Left = 26
          Top = 95
          Width = 36
          Height = 13
          Caption = 'Estado:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel4: TsLabel
          Left = 26
          Top = 127
          Width = 53
          Height = 13
          Caption = 'CEP Local:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel5: TsLabel
          Left = 338
          Top = 32
          Width = 79
          Height = 13
          Caption = 'C'#243'digo do IBGE:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object edtNomeCidade: TsEdit
          Left = 118
          Top = 60
          Width = 395
          Height = 21
          Hint = 'Digite o Nome da Cidade'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 100
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object cedCodCidade: TsCurrencyEdit
          Tag = 2000
          Left = 119
          Top = 28
          Width = 80
          Height = 21
          Hint = 'Digite o C'#243'digo da Cidade'
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#######0'
        end
        object edtUF: TsEdit
          Tag = 2000
          Left = 118
          Top = 91
          Width = 67
          Height = 21
          Hint = 'Digite a Sigla da UF'
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object dblEstados: TsDBLookupComboBox
          Tag = 2000
          Left = 188
          Top = 91
          Width = 325
          Height = 21
          Hint = 'Selecione a UF'
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'CODIGO_UF'
          ListField = 'NOME_UF'
          ListSource = dtsUF
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'COMBOBOX'
        end
        object mskCEPLocal: TsMaskEdit
          Left = 118
          Top = 123
          Width = 91
          Height = 21
          Hint = 'Digite o CEP'
          Color = clWhite
          EditMask = '00.000-000;0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
        end
        object cedCodIBGE: TsCurrencyEdit
          Tag = 1000
          Left = 431
          Top = 28
          Width = 80
          Height = 21
          Hint = 'Digite o C'#243'digo do IBGE'
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#######0'
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgConsulta'
      object sPanel2: TsPanel
        Left = 0
        Top = 0
        Width = 611
        Height = 169
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object dbgConsulta: TRxDBGrid
          Left = 1
          Top = 1
          Width = 609
          Height = 167
          Align = alClient
          DataSource = dtsConsulta
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = dbgConsultaDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'CODIGO_CIDADE'
              Title.Caption = 'C'#243'd. Cidade'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOME_CIDADE'
              Title.Caption = 'Nome Cidade'
              Width = 330
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CODIGO_UF'
              Title.Caption = 'UF'
              Width = 40
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CEP_LOCAL'
              Title.Caption = 'CEP'
              Width = 80
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CODIGO_IBGE'
              Title.Caption = 'C'#243'd. IBGE'
              Visible = True
            end>
        end
      end
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 480
    Top = 32
  end
  object qryUF: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT CODIGO_UF, NOME_UF FROM UF'
      'ORDER BY NOME_UF')
    Left = 400
    Top = 153
    object qryUFCODIGO_UF: TStringField
      FieldName = 'CODIGO_UF'
      Size = 2
    end
    object qryUFNOME_UF: TStringField
      FieldName = 'NOME_UF'
      Size = 100
    end
  end
  object dtsUF: TDataSource
    DataSet = qryUF
    Left = 448
    Top = 153
  end
  object qryIncluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'NOME_CIDADE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'CODIGO_UF'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = Null
      end
      item
        Name = 'CEP_LOCAL'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = Null
      end
      item
        Name = 'CODIGO_IBGE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO CIDADE'
      '('
      '  NOME_CIDADE,'
      '  CODIGO_UF,'
      '  CEP_LOCAL,'
      '  CODIGO_IBGE'
      ')'
      'VALUES'
      '('
      '  :NOME_CIDADE,'
      '  :CODIGO_UF,'
      '  :CEP_LOCAL,'
      '  :CODIGO_IBGE'
      ')')
    Left = 248
    Top = 185
  end
  object qryAlterar: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'NOME_CIDADE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'CODIGO_UF'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = Null
      end
      item
        Name = 'CEP_LOCAL'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = Null
      end
      item
        Name = 'CODIGO_IBGE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_CIDADE'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'UPDATE CIDADE'
      'SET NOME_CIDADE    = :NOME_CIDADE,'
      '    CODIGO_UF      = :CODIGO_UF,'
      '    CEP_LOCAL      = :CEP_LOCAL,'
      '    CODIGO_IBGE    = :CODIGO_IBGE'
      'WHERE CODIGO_CIDADE = :CODIGO_CIDADE')
    Left = 328
    Top = 201
  end
  object qryExcluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_CIDADE'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'DELETE FROM CIDADE'
      'WHERE CODIGO_CIDADE = :CODIGO_CIDADE')
    Left = 416
    Top = 209
  end
  object qryConsulta: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM CIDADE'
      'WHERE 1 = 1'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    Left = 104
    Top = 201
    object qryConsultaCODIGO_CIDADE: TAutoIncField
      FieldName = 'CODIGO_CIDADE'
      ReadOnly = True
    end
    object qryConsultaNOME_CIDADE: TStringField
      FieldName = 'NOME_CIDADE'
      Size = 300
    end
    object qryConsultaCODIGO_UF: TStringField
      FieldName = 'CODIGO_UF'
      Size = 2
    end
    object qryConsultaCEP_LOCAL: TStringField
      FieldName = 'CEP_LOCAL'
      EditMask = '00.000-000;0;_'
      Size = 8
    end
    object qryConsultaCODIGO_IBGE: TIntegerField
      FieldName = 'CODIGO_IBGE'
    end
  end
  object dtsConsulta: TDataSource
    DataSet = qryConsulta
    Left = 168
    Top = 161
  end
end
